home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 011 / ffix0531.arc / RSB10530.MRG < prev    next >
Text File  |  1988-05-30  |  8KB  |  200 lines
  1. * ------------[ BLED merge (c) Ken Goosens ]-------------
  2. * Merge this against RBBSSUB1.BAS to produce RSB10530.BAS
  3. * RBBSSUB1.BAS:  Date 3-25-1988  Size 56115 bytes
  4. * ------------[ Created 05-30-1988 14:37:51 ]------------
  5. * REPLACING old line(s) by new
  6. 128 IF NETWORK.TYPE = 2 THEN _
  7.        CN$ = SPACE$(535) : _
  8.        CALL INITIO(A)
  9.     END SUB
  10. ' $SUBTITLE: 'OPENCOM - subroutine to open the communications port'
  11. ' $PAGE
  12. '
  13. '  SUBROUTINE NAME    -- OPENCOM
  14. '
  15. '  INPUT PARAMETERS   --     PARAMETER                    MEANING
  16. '                       BAUD.RATE$                 BAUD TO OPEN MODEM
  17. '                       PARITY$                    PARITY TO OPEN MODEM
  18. '
  19. '  OUTPUT PARAMETERS -- BAUD.TEST                  BAUD RATE TO SET RS232 AT
  20. '
  21. '  SUBROUTINE PURPOSE -- TO OPEN THE COMMUNICATIONS PORT.
  22. '
  23.       SUB OPENCOM(BAUD.RATE$,PARITY$) STATIC
  24.       ON ERROR GOTO 65000
  25. * ------[ first line different ]------
  26. '200 IF RTS$ = "YES" THEN _
  27. '      FLOW.CONTROL = TRUE : _
  28. * REPLACING old line(s) by new
  29. * ------[ first line different ]------
  30. 200  COMSPEED%=VAL(BAUD.RATE$)                                         'FOSS
  31.      CALL FOSSPEED(COMPORT%,COMSPEED%)                                 'FOSS
  32. '
  33. ' *****************************************************************************
  34. ' *  RAISE THE RTS SIGNAL IF THE MODEM USES RTS FOR MODEM FLOW CONTROL (ONCE  *
  35. ' *  IT IS RAISED, IT WILL STAY UP UNTIL THE REGISTER IS CLEARED OUT).        *
  36. ' *****************************************************************************
  37. '
  38.     END SUB
  39. ' $SUBTITLE: 'GETCOM -- subroutine reads a char. from  comm. port'
  40. ' $PAGE
  41. '
  42. '  SUBROUTINE NAME    -- GETCOM
  43. '
  44. '  INPUT PARAMETERS   --   PARAMETER     MEANING
  45. '                          STNG$       STRING TO READ A CHARACTER INTO FROM
  46. '                                      THE COMMUNICATIONS PORT (FILE #3)
  47. '
  48. '  OUTPUT PARAMETERS  --   STNG$
  49. '
  50. '  SUBROUTINE PURPOSE -- READS A CHARACTER FROM FROM THE COMMUNICATIONS PORT.
  51. '
  52.       SUB GETCOM (STRNG$) STATIC
  53.       ON ERROR GOTO 65000
  54. * REPLACING old line(s) by new
  55. * ------[ first line different ]------
  56. 1420 CALL FOSRXCHAR(COMPORT%,CHAR%)                                    'FOSS
  57.      STRNG$=CHR$(CHAR%)                                                'FOSS
  58.      END SUB
  59. ' $SUBTITLE: 'OPENRSEQ  - subroutine open sequential file randomly'
  60. ' $PAGE
  61. '
  62. '  SUBROUTINE NAME    -- OPENRSEQ
  63. '
  64. '  INPUT PARAMETERS   -- PARAMETER             MEANING
  65. '                        FILNAME$      NAME OF SEQUENTIAL FILE TO OPEN AS #2
  66. '
  67. '  OUTPUT PARAMETERS  -- NUM.RECS      NUMBER OF 128-BYTE RECORDS IN THE FILE
  68. '                        LEN.LAST.REC  NUMBER OF BYTES IN THE LAST RECORD (IT
  69. '                                      MAY BE LESS THAN OR EQUAL TO 128).
  70. '
  71. '  SUBROUTINE PURPOSE -- SUBROUTINE TO OPEN A SEQUENTIAL FILE AS FILE # 2 AND
  72. '                        READ IT RANDOMLY.
  73. '
  74.      SUB OPENRSEQ (FILNAME$,NUM.RECS,LEN.LAST.REC) STATIC
  75. * DELETING old line(s)
  76. 1421
  77. * REPLACING old line(s) by new
  78. 20223 OPEN "I",2,FILNAME$
  79.       IF EC = 64 OR EC = 76 THEN _
  80.          EXIT SUB
  81.       OK = TRUE
  82.       END SUB
  83. ' $SUBTITLE: 'FLUSHCOM -- subroutine reads all char. from  comm. port'
  84. ' $PAGE
  85. '
  86. '  SUBROUTINE NAME    -- FLUSHCOM
  87. '
  88. '  INPUT PARAMETERS   --   PARAMETER     MEANING
  89. '                          STNG$       STRING TO READ CHARACTERS INTO FROM
  90. '                                      THE COMMUNICATIONS PORT (FILE #3)
  91. '
  92. '  OUTPUT PARAMETERS  --   STNG$
  93. '
  94. '  SUBROUTINE PURPOSE -- READS ALL CHARACTER FROM FROM THE COMMUNICATIONS PORT.
  95. '
  96.       SUB FLUSHCOM (STRNG$) STATIC
  97.       ON ERROR GOTO 65000
  98.       IF LOCAL.USER THEN _
  99.          EXIT SUB
  100. * ------[ first line different ]------
  101.       STRNG$ = ""
  102. * REPLACING old line(s) by new
  103. 20311 CALL FOSREADAHEAD(COMPORT%,CHAR%)                           'FOSS
  104. * REPLACING old line(s) by new
  105. * ------[ first line different ]------
  106. 20312 IF CHAR% <> -1 THEN _                                       'FOSS
  107.          CALL FOSRXCHAR (COMPORT%,CHAR%) : _                      'FOSS
  108.          STRNG$ = STRNG$ + CHR$(CHAR%) : _                        'FOSS
  109.          CALL FOSREADAHEAD(COMPORT%,CHAR%) : _
  110.          GOTO 20312
  111.       END SUB
  112. ' $SUBTITLE: 'NETBIOS - subroutine to lock/unlock using NETBIOS'
  113. ' $PAGE
  114. '
  115. '  SUBROUTINE NAME    -- NETBIOS   (WRITTEN BY DOUG AZZARITO)
  116. '
  117. '  INPUT PARAMETERS   -- IBM.LOCK.CMD       = 1-LOCK, 0-UNLOCK
  118. '                        IBM.FILE.LOCK      = 5 USERS FILE
  119. '                                           = 6 SEMAPHORE FILE
  120. '                        IBM.RECORD.LOCK    = RECORD NUMBER TO LOCK
  121. '
  122. '  OUTPUT PARAMETERS  -- NONE
  123. '
  124. '  SUBROUTINE PURPOSE -- LOCK AND UNLOCK FILES USING NETBIOS CMNDS.
  125. '                        IF LOCK FAILS, THIS ROUTINE TRIES FOREVER.
  126. '
  127.       SUB NETBIOS (IBM.LOCK.CMD,IBM.FILE.LOCK,IBM.RECORD.LOCK) STATIC
  128.       STATIC IBMCOUNT                                                ' debug
  129.       ON ERROR GOTO 65000
  130. * REPLACING old line(s) by new
  131. 58275 END SUB
  132. ' $SUBTITLE: 'GETPASWD - subroutine to read the "passwords" file'
  133. ' $PAGE
  134. '
  135. '  SUBROUTINE NAME    -- GETPASWD
  136. '
  137. '                          PARAMETER             MEANING
  138. '  INPUT PARAMETERS   -- FILE # 2 OPENED
  139. '
  140. '  OUTPUT PARAMETERS  -- TEMP.PASSWORD$
  141. '                        TEMP.SECURITY.LEVEL
  142. * ------[ first line different ]------
  143. '                        TEMP.UPLOAD.DOWNLOAD.RATIO                     'AL0402
  144. '                        TEMP.TIME.ALLOWED
  145. '                        TEMP.REG.PERIOD
  146. '                        TEMP.MAX.PER.DAY
  147. '
  148. '  SUBROUTINE PURPOSE -- TO READ THE RBBS-PC "PASSWORDS" FILE
  149. '
  150. * REPLACING old line(s) by new
  151. 58280 SUB GETPASWD STATIC
  152.       ON ERROR GOTO 65000
  153.       EC = 0
  154.       INPUT #2,TEMP.PASSWORD$,TEMP.SECURITY.LEVEL, _
  155. * ------[ first line different ]------
  156.                TEMP.UPLOAD.DOWNLOAD.RATIO, _                            'AL0402
  157.                TEMP.TIME.ALLOWED,TEMP.MAX.PER.DAY, _
  158.                TEMP.REG.PERIOD,START.TIME,END.TIME
  159. * REPLACING old line(s) by new
  160. 59650 SUB PUTCOM (STRNG$) STATIC
  161.       ON ERROR GOTO 65000
  162.       IF LOCAL.USER THEN _
  163.          EXIT SUB
  164.       CALL CARRIER
  165.       IF SUBROUTINE.PARAMETER = -1 THEN _
  166.          EXIT SUB
  167.       IF NOT XOFF.ED THEN _
  168.          GOTO 59652
  169.       SUBROUTINE.PARAMETER = 1
  170.       CALL LINE25
  171.       Y$ = XOFF$
  172.       CALL SETABORT (X!,WAIT.BEFORE.DISCONNECT)
  173.       WHILE Y$ = XOFF$ AND SUBROUTINE.PARAMETER <> -1
  174. * ------[ first line different ]------
  175.          CALL FOSREADAHEAD(COMPORT%,CHAR%)                            'FOSS
  176.          WHILE CHAR% = -1 AND SUBROUTINE.PARAMETER <> -1              'FOSS
  177.             GOSUB 59654
  178.             CALL FOSREADAHEAD(COMPORT%,CHAR%)
  179.          WEND
  180.          CALL FOSREADAHEAD (COMPORT%,CHAR%)
  181.          IF CHAR% <> -1 THEN _                                        'FOSS
  182.             CALL GETCOM(Y$) : _
  183.             IF XON.XOFF AND Y$ <> XON$ THEN _
  184.                Y$ = XOFF$
  185.       WEND
  186.       XOFF.ED = FALSE
  187.       SUBROUTINE.PARAMETER = 1
  188.       CALL LINE25
  189. * REPLACING old line(s) by new
  190. * ------[ first line different ]------
  191. 59652 IF STRNG$ = "" THEN EXIT SUB                                    'FOSS
  192.       FOR N = 1 TO LEN(STRNG$)                                        'FOSS
  193.       CHAR%=ASC(MID$(STRNG$,N,1))                                     'FOSS
  194. * INSERTING new line(s)
  195. 59653 CALL FOSTXCHARNW(COMPORT%,CHAR%,RESULT%)                        'FOSS
  196.       IF RESULT% = 0 THEN GOTO 59653                                  'FOSS 
  197.       NEXT N                                                          'FOSS
  198. '      NOT.CTS = FALSE
  199.       EXIT SUB
  200.